All the information from the switches is passed as 8 separate
parameters to a macro appropriate to the number of sides.
The parameters have the following uses, and are set as shown:
#defs342#
The organisation of this information is done by |@@@#1|
which takes as a single parameter a macro appropriate to the
number of sides, supplied by |@@@|.
(
@@@@<#801#>@=@
@
@;SPMlt;@@@<#721#>@<#355#>@<#355#><#721#>128
@-@@
@ @<#356#>@@@@@<#356#>129
@<#357#>@@@@@<#357#>130
@<#358#>@@@@@<#358#>131
@<#359#>@@@@@<#359#>132
@<#360#>@@@@@<#360#>133
@<#361#>@@@@@<#361#>134
@<#362#>@@@@@<#362#>135
@<#363#>@@@@@<#363#>136
@<#364#>@@@@@<#364#>137
@<#365#>@@@@@<#365#>138
@<#722#>@<#366#>0<#366#><#367#>@ <#367#><#722#>139
@<#723#>@<#368#>@ <#368#><#369#>@ <#369#><#723#>140
@ @@@x<#801#>
@@@@x<#370#>@x<#370#>
@@#1<#724#>@<#371#>#1 sides is too few for a polygon<#371#><#724#>
)
Here is |@@@|. It constructs a list of tokens to be
interpreted, after having closed the grouping that was current
while parsing.
It starts by setting the value of |@ |,
then a || before adjusting the scale according to the value
of |@ |.
(
@@@@#1<#802#>141
@=<#372#><#372#>142
@<#725#><#373#>@ <#373#><#725#>143
@ @<#374#>;SPMquot;<#374#>145
@<#375#>;0;<#375#>146
@<#376#>@ ;SPMquot;<#376#>147
@<#377#>@0;SPMquot;<#377#>148
@
@<#726#>#1<#378#>;<#378#><#726#>150
@<#727#><#379#>@ <#379#><#727#>151
@<#728#><#380#>@<#380#><#728#>152
@##1@ <#729#><#729#>153
@ <#382#>@ <#382#>@
@<#730#><#383#>@ <#383#><#730#>154
@<#384#>@ <#384#>
@<#385#>#1<#385#>155
@<#731#><#386#>@ <#386#><#731#>156
@<#732#><#387#>@ <#387#><#732#>157
@<#733#><#388#>@<#388#><#389#><#389#><#733#>158
@<#734#><#390#>@ <#390#><#734#>159
@
@<#735#><#391#>;<#391#><#735#>161
@##1@ <#736#><#736#>162
@ <#393#>@ <#393#>@
@<#737#><#394#>@ <#394#><#737#>163
@<#395#>@ <#395#>
@<#738#><#396#>@ <#396#><#397#><#397#><#738#>164
@<#739#><#398#>@ <#398#><#739#>165
@
@ ;SPMgt;12@<#740#><#399#>0<#399#><#740#>
@<#741#><#400#>@ <#400#><#741#>166
@<#401#>@ <#401#>167
@ <#802#>
)
Note how || closes the grouping.
All the information for the layout of the polygon is contained in
|@ | and the specific polygon macro
contained in the final |@ |.
Here is where the polygons are defined, individually.
(
@@@#1#2#3#4#5#6#7#8<#742#>168
@@<#402#>@=ne<#402#>169
#1;SPMquot;#30;SPMquot;+(0,1)#2=;SPMquot;#31;SPMquot;#4#5
@@<#403#>@ne<#403#>170
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-6, -.5)#2=;SPMquot;#32;SPMquot;#4#5
@@<#404#>@@ne<#404#>171
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#405#>@@<#405#>172
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(6,-.5)#2=;SPMquot;#33;SPMquot;#4#5
@@<#406#>@@ne<#406#>173
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#407#>@ne<#407#>174
;SPMquot;#33;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#742#>
@@@#1#2#3#4#5#6#7#8<#743#>175
@@<#408#>@=ne<#408#>176
#1;SPMquot;#30;SPMquot;+(,)#2=;SPMquot;#31;SPMquot;#4#5
@@<#409#>@ne<#409#>177
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-,)#2=;SPMquot;#32;SPMquot;#4#5
@@<#410#>@@ne<#410#>178
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#411#>@@<#411#>179
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(,)#2=;SPMquot;#33;SPMquot;#4#5
@@<#412#>@@ne<#412#>180
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#413#>@@<#413#>181
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(-,)#2=;SPMquot;#34;SPMquot;#4#5
@@<#414#>@@ne<#414#>182
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#415#>@ne<#415#>183
;SPMquot;#34;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#743#>
@@@#1#2#3#4#5#6#7#8<#744#>184
@@<#416#>@=ne<#416#>185
#1;SPMquot;#30;SPMquot;+(<#417#>10<#417#>,<#418#>10<#418#>)#2=;SPMquot;#31;SPMquot;#4#5
@@<#419#>@ne<#419#>186
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(0,1)#2=;SPMquot;#32;SPMquot;#4#5
@@<#420#>@@ne<#420#>187
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#421#>@@<#421#>188
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-<#422#>10<#422#>,<#423#>10<#423#>)#2=;SPMquot;#33;SPMquot;#4#5
@@<#424#>@@ne<#424#>189
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#425#>@@<#425#>190
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(5,5)#2=;SPMquot;#34;SPMquot;#4#5
@@<#426#>@@ne<#426#>191
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#427#>@@<#427#>192
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(5,-5)#2=;SPMquot;#35;SPMquot;#4#5
@@<#428#>@@ne<#428#>193
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#429#>@ne<#429#>194
;SPMquot;#35;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#744#>
@@@#1#2#3#4#5#6#7#8<#745#>195
@@<#430#>@=ne<#430#>196
#1;SPMquot;#30;SPMquot;+(1,0)#2=;SPMquot;#31;SPMquot;#4#5
@@<#431#>@ne<#431#>197
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(.5,)#2=;SPMquot;#32;SPMquot;#4#5
@@<#432#>@@ne<#432#>198
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#433#>@@<#433#>199
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-.5,)#2=;SPMquot;#33;SPMquot;#4#5
@@<#434#>@@ne<#434#>200
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#435#>@@<#435#>201
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(1,0)#2=;SPMquot;#34;SPMquot;#4#5
@@<#436#>@@ne<#436#>202
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#437#>@@<#437#>203
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(.5,)#2=;SPMquot;#35;SPMquot;#4#5
@@<#438#>@@ne<#438#>204
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#439#>@@<#439#>205
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(-.5,)#2=;SPMquot;#36;SPMquot;#4#5
@@<#440#>@@ne<#440#>206
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#441#>@ne<#441#>207
;SPMquot;#36;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#745#>
@@@#1#2#3#4#5#6#7#8<#746#>208
@@<#442#>@=ne<#442#>209
#1;SPMquot;#30;SPMquot;+(7,7)#2=;SPMquot;#31;SPMquot;#4#5
@@<#443#>@ne<#443#>210
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(0,1)#2=;SPMquot;#32;SPMquot;#4#5
@@<#444#>@@ne<#444#>211
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#445#>@@<#445#>212
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-7,7)#2=;SPMquot;#33;SPMquot;#4#5
@@<#446#>@@ne<#446#>213
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#447#>@@<#447#>214
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(7,7)#2=;SPMquot;#34;SPMquot;#4#5
@@<#448#>@@ne<#448#>215
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#449#>@@<#449#>216
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(7,7)#2=;SPMquot;#35;SPMquot;#4#5
@@<#450#>@@ne<#450#>217
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#451#>@@<#451#>218
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(7,-7)#2=;SPMquot;#36;SPMquot;#4#5
@@<#452#>@@ne<#452#>219
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#453#>@@<#453#>220
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(7,-7)#2=;SPMquot;#37;SPMquot;#4#5
@@<#454#>@@ne<#454#>221
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#455#>@ne<#455#>222
;SPMquot;#37;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#746#>
@@@#1#2#3#4#5#6#7#8<#747#>223
@@<#456#>@=ne<#456#>224
#1;SPMquot;#30;SPMquot;+(8,8)#2=;SPMquot;#31;SPMquot;#4#5
@@<#457#>@ne<#457#>225
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(8,8)#2=;SPMquot;#32;SPMquot;#4#5
@@<#458#>@@ne<#458#>226
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#459#>@@<#459#>227
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(8,-8)#2=;SPMquot;#33;SPMquot;#4#5
@@<#460#>@@ne<#460#>228
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#461#>@@<#461#>229
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(8,-8)#2=;SPMquot;#34;SPMquot;#4#5
@@<#462#>@@ne<#462#>230
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#463#>@@<#463#>231
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(8,8)#2=;SPMquot;#35;SPMquot;#4#5
@@<#464#>@@ne<#464#>232
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#465#>@@<#465#>233
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(8,8)#2=;SPMquot;#36;SPMquot;#4#5
@@<#466#>@@ne<#466#>234
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#467#>@@<#467#>235
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(8,-8)#2=;SPMquot;#37;SPMquot;#4#5
@@<#468#>@@ne<#468#>236
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#469#>@@<#469#>237
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(8,-8)#2=;SPMquot;#38;SPMquot;#4#5
@@<#470#>@@ne<#470#>238
;SPMquot;#37;SPMquot;#6;SPMquot;#38;SPMquot;#7#8
@@<#471#>@ne<#471#>239
;SPMquot;#38;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#747#>
@@@#1#2#3#4#5#6#7#8<#748#>240
@@<#472#>@=ne<#472#>241
#1;SPMquot;#30;SPMquot;+(9,9)#2=;SPMquot;#31;SPMquot;#4#5
@@<#473#>@ne<#473#>242
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(9,9)#2=;SPMquot;#32;SPMquot;#4#5
@@<#474#>@@ne<#474#>243
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#475#>@@<#475#>244
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(0,1)#2=;SPMquot;#33;SPMquot;#4#5
@@<#476#>@@ne<#476#>245
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#477#>@@<#477#>246
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-9,9)#2=;SPMquot;#34;SPMquot;#4#5
@@<#478#>@@ne<#478#>247
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#479#>@@<#479#>248
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-9,9)#2=;SPMquot;#35;SPMquot;#4#5
@@<#480#>@@ne<#480#>249
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#481#>@@<#481#>250
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(6,6)#2=;SPMquot;#36;SPMquot;#4#5
@@<#482#>@@ne<#482#>251
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#483#>@@<#483#>252
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(9,9)#2=;SPMquot;#37;SPMquot;#4#5
@@<#484#>@@ne<#484#>253
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#485#>@@<#485#>254
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(9,-9)#2=;SPMquot;#38;SPMquot;#4#5
@@<#486#>@@ne<#486#>255
;SPMquot;#37;SPMquot;#6;SPMquot;#38;SPMquot;#7#8
@@<#487#>@@<#487#>256
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(6,-6)#2=;SPMquot;#39;SPMquot;#4#5
@@<#488#>@@ne<#488#>257
;SPMquot;#38;SPMquot;#6;SPMquot;#39;SPMquot;#7#8
@@<#489#>@ne<#489#>258
;SPMquot;#39;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#748#>
@@@#1#2#3#4#5#6#7#8<#749#>259
@@<#490#>@=ne<#490#>260
#1;SPMquot;#30;SPMquot;+(1,0)#2=;SPMquot;#31;SPMquot;#4#5
@@<#491#>@ne<#491#>261
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(5,5)#2=;SPMquot;#32;SPMquot;#4#5
@@<#492#>@@ne<#492#>262
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#493#>@@<#493#>263
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#494#>10<#494#>,<#495#>10<#495#>)#2=;SPMquot;#33;SPMquot;#4#5
@@<#496#>@@ne<#496#>264
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#497#>@@<#497#>265
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#498#>10<#498#>,-<#499#>10<#499#>)#2=;SPMquot;#34;SPMquot;#4#5
@@<#500#>@@ne<#500#>266
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#501#>@@<#501#>267
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(5,-5)#2=;SPMquot;#35;SPMquot;#4#5
@@<#502#>@@ne<#502#>268
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#503#>@@<#503#>269
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(1,0)#2=;SPMquot;#36;SPMquot;#4#5
@@<#504#>@@ne<#504#>270
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#505#>@@<#505#>271
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(5,5)#2=;SPMquot;#37;SPMquot;#4#5
@@<#506#>@@ne<#506#>272
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#507#>@@<#507#>273
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#508#>10<#508#>,<#509#>10<#509#>)#2=;SPMquot;#38;SPMquot;#4#5
@@<#510#>@@ne<#510#>274
;SPMquot;#37;SPMquot;#6;SPMquot;#38;SPMquot;#7#8
@@<#511#>@@<#511#>275
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#512#>10<#512#>,-<#513#>10<#513#>)#2=;SPMquot;#39;SPMquot;#4#5
@@<#514#>@@ne<#514#>276
;SPMquot;#38;SPMquot;#6;SPMquot;#39;SPMquot;#7#8
@@<#515#>@@<#515#>277
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(5,-5)#2=;SPMquot;#310;SPMquot;#4#5
@@<#516#>@@ne<#516#>278
;SPMquot;#39;SPMquot;#6;SPMquot;#310;SPMquot;#7#8
@@<#517#>@ne<#517#>279
;SPMquot;#310;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#749#>
@@@#1#2#3#4#5#6#7#8<#750#>280
@@<#518#>@=ne<#518#>281
#1;SPMquot;#30;SPMquot;+(<#519#>11<#519#>,<#520#>11<#520#>)#2=;SPMquot;#31;SPMquot;#4#5
@@<#521#>@ne<#521#>282
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#522#>11<#522#>,<#523#>11<#523#>)#2=;SPMquot;#32;SPMquot;#4#5
@@<#524#>@@ne<#524#>283
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#525#>@@<#525#>284
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(0,1)#2=;SPMquot;#33;SPMquot;#4#5
@@<#526#>@@ne<#526#>285
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#527#>@@<#527#>286
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-<#528#>11<#528#>,<#529#>11<#529#>)#2=;SPMquot;#34;SPMquot;#4#5
@@<#530#>@@ne<#530#>287
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#531#>@@<#531#>288
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(-<#532#>11<#532#>,<#533#>11<#533#>)#2=;SPMquot;#35;SPMquot;#4#5
@@<#534#>@@ne<#534#>289
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#535#>@@<#535#>290
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#536#>11<#536#>,<#537#>11<#537#>)#2=;SPMquot;#36;SPMquot;#4#5
@@<#538#>@@ne<#538#>291
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#539#>@@<#539#>292
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#540#>11<#540#>,<#541#>11<#541#>)#2=;SPMquot;#37;SPMquot;#4#5
@@<#542#>@@ne<#542#>293
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#543#>@@<#543#>294
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#544#>11<#544#>,<#545#>11<#545#>)#2=;SPMquot;#38;SPMquot;#4#5
@@<#546#>@@ne<#546#>295
;SPMquot;#37;SPMquot;#6;SPMquot;#38;SPMquot;#7#8
@@<#547#>@@<#547#>296
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#548#>11<#548#>,-<#549#>11<#549#>)#2=;SPMquot;#39;SPMquot;#4#5
@@<#550#>@@ne<#550#>297
;SPMquot;#38;SPMquot;#6;SPMquot;#39;SPMquot;#7#8
@@<#551#>@@<#551#>298
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#552#>11<#552#>,-<#553#>11<#553#>)#2=;SPMquot;#310;SPMquot;#4#5
@@<#554#>@@ne<#554#>299
;SPMquot;#39;SPMquot;#6;SPMquot;#310;SPMquot;#7#8
@@<#555#>@@<#555#>300
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#556#>11<#556#>,-<#557#>11<#557#>)#2=;SPMquot;#311;SPMquot;#4#5
@@<#558#>@@ne<#558#>301
;SPMquot;#310;SPMquot;#6;SPMquot;#311;SPMquot;#7#8
@@<#559#>@ne<#559#>302
;SPMquot;#311;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#750#>
@@@#1#2#3#4#5#6#7#8<#751#>303
@@<#560#>@=ne<#560#>304
#1;SPMquot;#30;SPMquot;+(<#561#>12<#561#>,<#562#>12<#562#>)#2=;SPMquot;#31;SPMquot;#4#5
@@<#563#>@ne<#563#>305
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(,)#2=;SPMquot;#32;SPMquot;#4#5
@@<#564#>@@ne<#564#>306
;SPMquot;#31;SPMquot;#6;SPMquot;#32;SPMquot;#7#8
@@<#565#>@@<#565#>307
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#566#>12<#566#>,<#567#>12<#567#>)#2=;SPMquot;#33;SPMquot;#4#5
@@<#568#>@@ne<#568#>308
;SPMquot;#32;SPMquot;#6;SPMquot;#33;SPMquot;#7#8
@@<#569#>@@<#569#>309
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#570#>12<#570#>,-<#571#>12<#571#>)#2=;SPMquot;#34;SPMquot;#4#5
@@<#572#>@@ne<#572#>310
;SPMquot;#33;SPMquot;#6;SPMquot;#34;SPMquot;#7#8
@@<#573#>@@<#573#>311
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(,-)#2=;SPMquot;#35;SPMquot;#4#5
@@<#574#>@@ne<#574#>312
;SPMquot;#34;SPMquot;#6;SPMquot;#35;SPMquot;#7#8
@@<#575#>@@<#575#>313
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#576#>12<#576#>,-<#577#>12<#577#>)#2=;SPMquot;#36;SPMquot;#4#5
@@<#578#>@@ne<#578#>314
;SPMquot;#35;SPMquot;#6;SPMquot;#36;SPMquot;#7#8
@@<#579#>@@<#579#>315
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#580#>12<#580#>,<#581#>12<#581#>)#2=;SPMquot;#37;SPMquot;#4#5
@@<#582#>@@ne<#582#>316
;SPMquot;#36;SPMquot;#6;SPMquot;#37;SPMquot;#7#8
@@<#583#>@@<#583#>317
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(,)#2=;SPMquot;#38;SPMquot;#4#5
@@<#584#>@@ne<#584#>318
;SPMquot;#37;SPMquot;#6;SPMquot;#38;SPMquot;#7#8
@@<#585#>@@<#585#>319
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;-(<#586#>12<#586#>,<#587#>12<#587#>)#2=;SPMquot;#39;SPMquot;#4#5
@@<#588#>@@ne<#588#>320
;SPMquot;#38;SPMquot;#6;SPMquot;#39;SPMquot;#7#8
@@<#589#>@@<#589#>321
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#590#>12<#590#>,-<#591#>12<#591#>)#2=;SPMquot;#310;SPMquot;#4#5
@@<#592#>@@ne<#592#>322
;SPMquot;#39;SPMquot;#6;SPMquot;#310;SPMquot;#7#8
@@<#593#>@@<#593#>323
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(,-)#2=;SPMquot;#311;SPMquot;#4#5
@@<#594#>@@ne<#594#>324
;SPMquot;#310;SPMquot;#6;SPMquot;#311;SPMquot;#7#8
@@<#595#>@@<#595#>325
;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+(<#596#>12<#596#>,-<#597#>12<#597#>)#2=;SPMquot;#312;SPMquot;#4#5
@@<#598#>@@ne<#598#>326
;SPMquot;#311;SPMquot;#6;SPMquot;#312;SPMquot;#7#8
@@<#599#>@ne<#599#>327
;SPMquot;#312;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#751#>
)
(
@@#1#2<#600#>328
@=#1@
@@@@@<#600#>
)
We need a looping construction that will not interfere with others used
at a high level.
(
@@<#601#><#601#>
@@ <#602#><#602#>
@@<#603#>@ @<#603#>
@@#1@<#752#>@<#752#>
)
The counter |@| keeps track of the current vertex, spoke and side.
Since the user may choose to place another || along any such
piece, it is necessary to calculate the angle for each vertex afresh,
using only information passed via the parameters |#1|,...,|#9|.
(
@@@#1#2#3#4#5#6#7#8#9<#803#>330
@<#605#>#9<#605#>@@<#607#>@=ne<#607#>332
@=<#608#>#1;SPMquot;#30;SPMquot;+<#608#>333
@<#609#>@<#609#>334
@<#610#>@ #2=;SPMquot;#31;SPMquot;#4#5<#610#>335
@
@
@=360@ @@=@ @ .5@@
@ @
@@ @ #9@
@ @@<#613#>@ne<#613#>@=@
@=<#614#>;SPMquot;#30;SPMquot;#1;SPMquot;#30;SPMquot;+<#614#>@<#616#>@ <#616#>341
@<#617#>@ #2=;SPMquot;#3<#617#>342
@<#618#>@ ;SPMquot;#4#5<#618#>343
@
@=@ @@<#619#>@@ne<#619#>345
@=<#620#>;SPMquot;#3<#620#>@<#621#>@;SPMquot;#6;SPMquot;#3<#621#>346
@<#622#>@;SPMquot;#7#8<#622#>347
@
@@<#623#>@ne<#623#>@=@
@;SPMlt;@ @
@=<#624#>;SPMquot;#3<#624#>349
@<#625#>@ ;SPMquot;#6;SPMquot;#31;SPMquot;#7#8<#625#>350
@ <#803#>
)
2